﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class EditarCliente
    Inherits System.Web.UI.Page

    Dim errores As String
    Dim mensaje As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            If Session("CLIENTE") = "" Then

                Exit Sub
            End If

            'Hacemos una referencia a la clase
            Dim capanegociosPais As New PaisBL

            'Invocamos al método ListarPaises definido previamente en la clase
            ddlPais.DataSource = capanegociosPais.ListarPaises
            ddlPais.DataValueField = "COD_PAIS"
            ddlPais.DataTextField = "NOM_PAIS"
            ddlPais.DataBind()

           
            'Instanciamos la clase ClienteBL
            Dim capanegocios As New ClienteBL
            'Instanciamos la entidad de negocio Cliente
            Dim objeto As New BE.ClienteBE
            objeto.codigo = Session("CLIENTE")

            'Pintamos en los controles los datos originales del cliente

            Try
                txtNombres.Text = capanegocios.BuscarCliente(objeto). _
                Tables("ElCliente").Rows(0).Item(1)

                txtApellidos.Text = capanegocios.BuscarCliente _
                (objeto).Tables("ElCliente").Rows(0).Item(2)

                txtEmail.Text = capanegocios.BuscarCliente _
                (objeto).Tables("ElCliente").Rows(0).Item(3)

                txtDireccion.Text = capanegocios.BuscarCliente _
                (objeto).Tables("ElCliente").Rows(0).Item(4)

                ddlPais.Items.FindByValue(capanegocios.BuscarCliente(objeto). _
                Tables("ElCliente").Rows(0).Item(5)).Selected = True

                txtUsuario.Text = capanegocios.BuscarCliente _
                (objeto).Tables("ElCliente").Rows(0).Item(7)

                txtPassword.Text = capanegocios.BuscarCliente _
                (objeto).Tables("ElCliente").Rows(0).Item(8)

            Catch ex As Exception
                errores = capanegocios.ChapaError
                Response.Redirect("Errores.aspx?id=" & errores)

            Finally
                'Liberamos recursos
                capanegocios = Nothing
                objeto = Nothing
            End Try
        End If

    End Sub



    Protected Sub btnGrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGrabar.Click
        'Instanciamos la clase ClienteBL
        Dim capanegocios As New ClienteBL
        'Instancias la entidad ClienteBE
        Dim objeto As New BE.ClienteBE

        'Llenas las propiedades
        objeto.codigo = Session("CLIENTE")
        objeto.nombre = txtNombres.Text
        objeto.apellido = txtApellidos.Text
        objeto.email = txtEmail.Text
        objeto.direccion = txtDireccion.Text
        objeto.pais = ddlPais.SelectedItem.Value
        objeto.usuario = txtUsuario.Text
        objeto.password = txtPassword.Text



        Try
            If capanegocios.ActualizarCliente(objeto) = True Then

                mensaje = "Se actualizó el cliente"
                Dim script As String = "<script language=Javascript>"
                script += "alert('" & mensaje & "');"
                script += "</script>"
                Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

                txtNombres.Enabled = False
                txtApellidos.Enabled = False
                txtEmail.Enabled = False
                txtDireccion.Enabled = False
                ddlPais.Enabled = False
                txtUsuario.Enabled = False
                txtPassword.Enabled = False
                txtConfirmaPassword.Enabled = False
                btnGrabar.Enabled = False

            Else

                mensaje = "No se actualizó el cliente"
                Dim script As String = "<script language=Javascript>"
                script += "alert('" & mensaje & "');"
                script += "</script>"
                Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

            End If

        Catch ex As Exception
            errores = capanegocios.ChapaError
            Response.Redirect("Errores.aspx?id=" & errores)
        Finally
            capanegocios = Nothing
            objeto = Nothing
        End Try
    End Sub
End Class
